home *** CD-ROM | disk | FTP | other *** search
/ Assassins - Ultimate CD Games Collection 2 / Assassins 2 - Ultimate Games No. 2 (1995)(Weird Science)[!][Amiga-CD32-CDTV].iso / disks / home1.dms / home1.adf / addressm2.0 / InstallAM < prev    next >
Text File  |  1980-01-02  |  3KB  |  143 lines
  1. ;
  2. ;    $VER: Install-AddressManager 2.0 (13.06.94)
  3. ;
  4. ;    Install script for AddressManager2.0
  5. ;    © Copyright 1993-1994 by Michael Schikora
  6. ;    All Rights Reserved
  7. ;    
  8. (set intro
  9. (cat "\n Installation of AddressManager v2.0\n\n"
  10.      " ©1993 by Michael Schikora  \n"
  11.      " All Rights Reserved\n\n"
  12. ))
  13.  
  14. (set bad-kick
  15. (cat "\n\n\nYou must be using at least Kickstart 2.04 (Version 37.175) !"
  16. ))
  17.  
  18. (set copying-AM
  19. (cat "Copying the AddressManager program ..."
  20. ))
  21.  
  22. (set copying-catalogs
  23. (cat "Copying the catalog files for AddressManager ..."
  24. ))
  25.  
  26. (set which-languages
  27. (cat "\nWhich languages should be installed ?"
  28. ))
  29.  
  30. (set which-languages-help
  31. (cat "The Amiga, and AddressManager, normally use the "
  32.      "english language. As you have Workbench(tm) 2.1 or better, "
  33.      "you can make the Amiga use other languages.\n"
  34.      "If you want AddressManager to use the same languages as the Workbench "
  35.      "then a catalog file must be copied to your system disk for each "
  36.      "language supported.\n"
  37.      "Simply check the boxes of the languages you wish to have available "
  38.      "on your system.\n\n\n\n\n"
  39.      @askoptions-help
  40. ))
  41.  
  42. (set copying-help
  43. (cat "Copying Docs for AddressManager ..."
  44. ))
  45.  
  46. (set install-help
  47. (cat "\n\n\n\n\n\nDo you want to install the docs ?"
  48. ))
  49.  
  50. (set install-help-help
  51. (cat "The documentation may be usefull if you work with AddressManager.\n"
  52. ))
  53. (set choose (cat "Select a directory\n"))
  54.  
  55. ; Kickstart version test
  56.  
  57. (if (< (/ (getversion) 65536) 37)
  58. (
  59.  (abort bad-kick)
  60. ))
  61.  
  62. (welcome intro)
  63.  
  64. (set @default-dest "SYS:")
  65.  
  66. (set destination (cat (askdir(prompt choose)(help copyingAM)(default "sys:")(newpath)(disk))))
  67.  
  68. (copyfiles
  69.   (prompt copying-DOSPrefs)
  70.   (help @copylib-help)
  71.   (source "AddressManager")
  72.   (dest destination)
  73.   (infos)
  74.   (optional force askuser)
  75. )
  76.  
  77. ; install catalogs
  78.  
  79.   (set languages 
  80.     (askoptions 
  81.       (prompt which-languages)
  82.       (help   which-languages-help)
  83.       (choices
  84.         "english"
  85.         "deutsch"
  86.       )
  87.     )
  88.   )
  89.  
  90. (if (exists "Locale:catalogs")
  91. (
  92.   (set n 1)
  93.   (while (set language (select n
  94.            "english"
  95.            "deutsch"
  96.            ""
  97.          ))
  98.   (
  99.     (if (IN languages n)
  100.     (
  101.       (copyfiles
  102.         (prompt copying-catalogs)
  103.         (help @copylib-help)
  104.         (source (cat "catalogs/" language "/AddressManager.catalog"))
  105.         (dest (cat "Locale:catalogs/" language))
  106.         (optional force askuser)
  107.       )
  108.     ))
  109.     (set n (+ n 1))
  110.   ))
  111. )
  112. (
  113.   (set languages 0)
  114. ))
  115.  
  116.   (if(askbool
  117.        (prompt install-help)
  118.        (help install-help-help)
  119.        (default 1)
  120.      )
  121.   (
  122.     (set n 0)
  123.     (while (set language (select n
  124.              "english"
  125.              "deutsch"
  126.              ""
  127.            ))
  128.     (
  129.       (if (IN languages n)
  130.       (
  131.         (copyfiles
  132.           (prompt copying-help)
  133.           (help @copylib-help)
  134.           (source (cat "docs/" language) )
  135.           (all)(infos)
  136.           (dest destination)
  137.           (optional force askuser)
  138.         )
  139.       ))
  140.       (set n (+ n 1))
  141.     ))
  142.   ))
  143.